home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / addborder.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2005-06-30  |  6.0 KB  |  184 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ; Copyright (C) 1997 Andy Thomas alt@picnic.demon.co.uk
  19. ;
  20. ; Version 0.2 10.6.97 Changed to new script-fu interface in 0.99.10
  21.  
  22. ; Delta the colour by the given amount. Check for boundary conditions
  23. ; If < 0 set to zero 
  24. ; If > 255 set to 255
  25. ; Return the new value
  26.  
  27. (define (deltacolour col delta)
  28.   (let* ((newcol (+ col delta)))
  29.     (if (< newcol 0) (set! newcol 0))
  30.     (if (> newcol 255) (set! newcol 255))
  31.     newcol)
  32.   )
  33.  
  34. (define (adjcolour col delta)
  35.   (mapcar (lambda (x) (deltacolour x delta)) col)
  36. )
  37.  
  38. (define (gen_top_array xsize ysize owidth oheight width height)
  39.   (let* ((n_array (cons-array 10 'double)))
  40.     (aset n_array 0 0 )
  41.     (aset n_array 1 0 )
  42.     (aset n_array 2 xsize)
  43.     (aset n_array 3 ysize)
  44.     (aset n_array 4 (+ xsize owidth))
  45.     (aset n_array 5 ysize)
  46.     (aset n_array 6 width)
  47.     (aset n_array 7 0 )
  48.     (aset n_array 8 0 )
  49.     (aset n_array 9 0 )
  50.     n_array)
  51. )
  52.  
  53. (define (gen_left_array xsize ysize owidth oheight width height)
  54.   (let* ((n_array (cons-array 10 'double)))
  55.     (aset n_array 0 0 )
  56.     (aset n_array 1 0 )
  57.     (aset n_array 2 xsize)
  58.     (aset n_array 3 ysize)
  59.     (aset n_array 4 xsize)
  60.     (aset n_array 5 (+ ysize oheight))
  61.     (aset n_array 6 0 )
  62.     (aset n_array 7 height )
  63.     (aset n_array 8 0 )
  64.     (aset n_array 9 0 )
  65.     n_array)
  66. )
  67.  
  68. (define (gen_right_array xsize ysize owidth oheight width height)
  69.   (let* ((n_array (cons-array 10 'double)))
  70.     (aset n_array 0 width )
  71.     (aset n_array 1 0 )
  72.     (aset n_array 2 (+ xsize owidth))
  73.     (aset n_array 3 ysize)
  74.     (aset n_array 4 (+ xsize owidth))
  75.     (aset n_array 5 (+ ysize oheight))
  76.     (aset n_array 6 width)
  77.     (aset n_array 7 height)
  78.     (aset n_array 8 width )
  79.     (aset n_array 9 0 )
  80.     n_array)
  81. )
  82.  
  83. (define (gen_bottom_array xsize ysize owidth oheight width height)
  84.   (let* ((n_array (cons-array 10 'double)))
  85.     (aset n_array 0 0 )
  86.     (aset n_array 1 height)
  87.     (aset n_array 2 xsize)
  88.     (aset n_array 3 (+ ysize oheight))
  89.     (aset n_array 4 (+ xsize owidth))
  90.     (aset n_array 5 (+ ysize oheight))
  91.     (aset n_array 6 width)
  92.     (aset n_array 7 height)
  93.     (aset n_array 8 0 )
  94.     (aset n_array 9 height)
  95.     n_array)
  96. )
  97.  
  98. (define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
  99.   (let* ((img (car (gimp-drawable-get-image adraw)))
  100.          (owidth (car (gimp-image-width img)))
  101.          (oheight (car (gimp-image-height img)))
  102.          (width (+ owidth (* 2 xsize)))
  103.          (height (+ oheight (* 2 ysize)))
  104.          (layer (car (gimp-layer-new img
  105.                                      width height
  106.                                      (car (gimp-drawable-type-with-alpha adraw))
  107.                                      "Border-Layer" 100 NORMAL-MODE))))
  108.  
  109. ;Add this for debugging    (verbose 4)
  110.  
  111.     (gimp-context-push)
  112.  
  113.     (gimp-image-undo-group-start img)
  114.  
  115.     (gimp-image-resize img
  116.                        width
  117.                        height
  118.                        xsize
  119.                        ysize)
  120.  
  121.     (gimp-image-add-layer img layer 0)
  122.     (gimp-drawable-fill layer TRANSPARENT-FILL)
  123.  
  124.     (gimp-context-set-background (adjcolour colour dvalue))
  125.     (gimp-free-select img
  126.                       10
  127.                       (gen_top_array xsize ysize owidth oheight width height)
  128.                       CHANNEL-OP-REPLACE
  129.                       0
  130.                       0
  131.                       0.0)
  132.     (gimp-edit-fill layer BACKGROUND-FILL)
  133.     (gimp-context-set-background (adjcolour colour (/ dvalue 2)))
  134.     (gimp-free-select img
  135.                       10
  136.                       (gen_left_array xsize ysize owidth oheight width height)
  137.                       CHANNEL-OP-REPLACE
  138.                       0
  139.                       0
  140.                       0.0)
  141.     (gimp-edit-fill layer BACKGROUND-FILL)
  142.     (gimp-context-set-background (adjcolour colour (- 0 (/ dvalue 2))))
  143.     (gimp-free-select img
  144.                       10
  145.                       (gen_right_array xsize ysize owidth oheight width height)
  146.                       CHANNEL-OP-REPLACE
  147.                       0
  148.                       0
  149.                       0.0)
  150.  
  151.     (gimp-edit-fill layer BACKGROUND-FILL)
  152.     (gimp-context-set-background (adjcolour colour (- 0 dvalue)))
  153.     (gimp-free-select img
  154.                       10
  155.                       (gen_bottom_array xsize ysize owidth oheight width height)
  156.                       CHANNEL-OP-REPLACE
  157.                       0
  158.                       0
  159.                       0.0)
  160.  
  161.     (gimp-edit-fill layer BACKGROUND-FILL)
  162.     (gimp-selection-none img)
  163.     (gimp-image-undo-group-end img)
  164.     (gimp-displays-flush)
  165.  
  166.     (gimp-context-pop)))
  167.  
  168. (script-fu-register "script-fu-addborder"
  169.                     _"Add _Border..."
  170.                     "Add a border around an image"
  171.                     "Andy Thomas <alt@picnic.demon.co.uk>"
  172.                     "Andy Thomas"
  173.                     "6/10/97"
  174.                     "*"
  175.                     SF-IMAGE       "Input image"          0
  176.                     SF-DRAWABLE    "Input drawable"       0
  177.                     SF-ADJUSTMENT _"Border X size"        '(12 1 250 1 10 0 1)
  178.                     SF-ADJUSTMENT _"Border Y size"        '(12 1 250 1 10 0 1)
  179.                     SF-COLOR      _"Border color"         '(38 31 207)
  180.                     SF-ADJUSTMENT _"Delta value on color" '(25 1 255 1 10 0 1))
  181.  
  182. (script-fu-menu-register "script-fu-addborder"
  183.                          _"<Image>/Script-Fu/Decor")
  184.